home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / dev / e / energy.lha / Energy / Easy / RtFileRequestA.e < prev    next >
Text File  |  1996-05-18  |  1KB  |  36 lines
  1.  
  2. MODULE     'reqtools','libraries/reqtools'
  3.  
  4. PROC main()
  5.  
  6. DEF     filereq:PTR TO rtfilerequester,    -> punta all'OBJECT contenuto in 'libraries/reqtools'
  7.     filename[34]:STRING        -> EString che conterra` il nome del file scelto
  8.  
  9.   IF reqtoolsbase:=OpenLibrary('reqtools.library',37)    -> apertura della libreria...
  10.  
  11. /*     allocazione del requester specificando il tipo con RT_FILEREQ    */
  12.  
  13.     IF (filereq := RtAllocRequestA(RT_FILEREQ, NIL))
  14.  
  15.         IF RtFileRequestA(filereq, filename, 'Scegli un file...',0)
  16. /* filereq verra` riempito di dati, filename conterra` il nome del file    */
  17.  
  18.             RtEZRequestA('Tu hai preso il file:\n\s\nin directory:\n\a\s\a',
  19.                     'Giusto', NIL, [filename, filereq.dir], NIL)
  20.             StringF(filename,'\s/\s',filereq.dir,filename)
  21.             WriteF('percorso \s\n',filename)
  22.         ELSE
  23.             RtEZRequestA('nessun file scelto', 'No', NIL, NIL,NIL)
  24.  
  25.         ENDIF
  26.         RtFreeRequest(filereq)    -> libera la memoria allocata per il req
  27.     ELSE
  28.         RtEZRequestA('Senza memoria!', 'Peccato!', NIL, NIL, NIL)
  29.  
  30.     ENDIF
  31.  
  32.     CloseLibrary(reqtoolsbase)    -> chiusura della libreria
  33.   ELSE
  34.     WriteF('Non ho potuto aprire la reqtools.library!\n')
  35.   ENDIF
  36. ENDPROC